home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / rdelim.c < prev    next >
C/C++ Source or Header  |  1995-11-04  |  787b  |  28 lines
  1. /* This is an Scheme48/C interface file, 
  2. ** automatically generated by cig.
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <stdlib.h> /* For malloc. */
  7. #include "libcig.h"
  8.  
  9. #include <sys/types.h>
  10.  
  11. /* Make sure foreign-function stubs interface to the C funs correctly: */
  12. #include "fdports1.h"
  13.  
  14. scheme_value df_read_delim(long nargs, scheme_value *args)
  15. {
  16.     extern scheme_value read_delim(const char *, char *, int , scheme_value , int , int , int *);
  17.     scheme_value ret1;
  18.     scheme_value r1;
  19.     int r2;
  20.  
  21.     cig_check_nargs(7, nargs, "read_delim");
  22.     r1 = read_delim(cig_string_body(args[6]), cig_string_body(args[5]), EXTRACT_BOOLEAN(args[4]), args[3], EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), &r2);
  23.     ret1 = r1;
  24.     VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
  25.     return ret1;
  26.     }
  27.  
  28.